: ————_——_——— 
GET TOTAL CONTROL OF YOUR DISC COLLECTION 


‘The NEW upgrade venion of the original OSC. Special program to print the contents of 
son 
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Welcome to the largest issue of FORMAT we have produced so 
far. You may also notice that the line lengths on many pages 
have been incresed slightly to enable me to pack even ‘more onto 
each page, so FORMAT is now even better value. However, you a'nt 
seen nothing yet as they say, just wait and see whats coming 
next year.. 


. 


Several people have phoned in the last few weeks to ask about 
the Format Software Service. The three most regular questions 
are - What has happend to it? Can I still get the tapes? Are 
there any new items coming through? - So I think an explanation 
is in order. First, as I've claimed many times before, I'm very 
overworked (and underpaid) and the software operation has proved 
very time consuming. Secondly, so many items have gone missing 
in the post over the last 4 or 5 months that FSS has been 
costing the user group money not making it. Bearing this in mind 
I stopped printing the FSS page after the September issue which 
had gone to print just at the start of the postal strike. What 
orders have turned up since I try to deal with as soon as I can, 
but I'm afraid its not as quick as it should be. Now the good 
news, in the new year I will be producing several discs of 
software, each with at least six programs (most of which has 

] never been published before). They will be distributed for me by 
MGT who have far better handling facilities. However the 
conversion tapes, TASCON and ART STUDIO, will still be available 
through FORMAT. I hope the new arrangements will work out well. 
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I hope you enjoy the wide spread of articles we now print. Its 


BETTERBYTES Bat i 

BRADWAY SOFTWARE apenas good to see several new writers appearing in FORMAT this month, 
but I would like to see even more. Where are the small programs? 

NARSA 6 

P.c.G. az! Most of you listed programming as one of your uses of the 

2X GUARANTEED os Spectrum in our survey so why dont you send some in? I get very 
few Basic programs for publication, which is a great pity 


because thats just what a lot of people like to type in. So why 

(C)Copyright 1988 Imus. ALL Rights Reserved. not spend some of these long winter nights at your keyboard, and 
hen share you eff with other readers. Go on, FORMAT reader: 

No part of this publication may be reproduced, in any fora, without the written consent of 4 bestpre tes cad 2 eaters eS! s 

the publisher. FORMAT readers may copy program saterisl only for their oun personal use 

FORMAT is published by INOUG. 34 Bourton Road, Gloucester, GLé OLE, England. Telephone 

0452-412572, DISCIPLE and PLUS O are trade marks of MILES CORDON TECMNOLOGY, Lakeside 


Finally this month let me express a very warm seasonal 
greeting to all our readers. 


Technology Parks Phoenix Yay, Swansea, South Wales, SA7 SCH. Telephone 0752-79100. The 
DISCIPLE is marketed by Rockfort Products, 81 Church Rosd, Hendon, London, Mv 40P- May you have the best Christmas ever, and may your 
New Year bring you health, wealth, happiness, and 
Printed by 0.S-LITHO. Gloucester. Tel:- (0652) 23198 | many more issues of FORMAT. 
See you next year. Bob Brenchley. Editor. 
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NEWS ON 4! 


SUSIE 

Over two years ago, a group of teachers in Birmingham who used 
Spectrums in their schools got together as an informal self-help 
group. At that time, Brum was hooked on RML computers. 
Consequently little official aid was available, and the group 
was able to arrange discounted repair facilities, and advice 
both to themselves, and later to interested parents on such 
topics as software or problems in running machines or using 
Basic. Spectrums were at that time found to be advantageous for 
a number of reasons: software companies had over-anticipated the 
Spectrum Educational market in 1984, and software was very 
cheap; the Spectrum was familiar to the parents and children who 
owned it, and single key entry was an enormous help to Junior 
School children with spelling difficulties. This ad hoc group 
has now put itself on a more official footing, and SUSIE 
(Schools Using Spectrums In Education) recently held an 
inaugural meeting. Further details from John Croghan, Head, St. 
Francis School, Teazel Avenue, Bournville, Birminghan. 


SAM GOES TO BLACKPOOL 

MGT has confirmed that a pre-production SAM will be on 
demonstration at the NORBRECK show in Blackpool on January 29th 
1989, Alan Miles of MGT says ‘We are looking forward to the 
show, we have been looking for a show in the north for some 
time. We are also looking forward to seeing some new faces as 
not everyone can travel to London for a ZX Microfair.’ 


FORMAT will also have a stand at the show so see you there. 


+2a VANISHING TRICK 

Popular Computing Weekly have gone to town over the 
Amstrad +2a release (anyone see the mention FORMAT got). I did 
tell you back in February 1988 that the machine was on its way 
80 dont say you werent warned. 

However a new mystery has now developed, the black cased +2a 
machines have vanished from the shelves in places like DIXONS. 
"Sorry sir we are out of stock... No I dont know when we will 
have more in... How about a +3?" was the response in Bristol 
last week. Now I cant believe that they really have sold all the 
42a machines, could Suger's gang have had second thoughts? I 
doubt it, but there is a rumour that they may be repacking 
machines. so the poor purchaser can tell what machine he is 
getting for his hard earned money 


FIXIT FOR THE +2a 

Last month I promised you more details of the MGT ‘Twister’ 
board. Its now available and you will find a review of it in 
this issue 


If you have any news items you want to pass on then send them 
in. Please mark the envelope NEWS in the top left corner. 


YOUR LETTERS 


Can I ask you or your other readers for help with software. I 
am very new to the Spectrum (I got mine secondhand in March) and 
there seems to be little serious software advertised. I know, 
from looking at a few old mags that came with my 48k, that there 
used to be a lot around but where is it now? 

I'm looking for toolkits and other aids to programming as well 
as ‘useful’ programs. ° 

Yours Sincerely, J.N.Harris. 


Most small software producers were forced out of business due to 
the very high price of advertising in the glossy zags. I hope 
ny can be encouraged back now that FORMAT is around. If 
readers will send in details of software companies that they 
know of then I will try to print a directory. Ed. 


Dear Editor, 

,1 like FORMAT very much and look forward to each months issue 
with bated breath. But this raises the only moan I have, when 
can I expect each issue. Isn't it possible to tell us the 
publication date in the previous issue? 


Yours Sincerely, Andy O'Conner. 


I did try that at one tine but then if I was a few days late for 
Some reason I was flooded with telephone calls. I try to get 
FORMAT out around the 20th of the month but there are so sany 
things that this depends on that it is impossible to guarantee 
an exact date. Still, by May of next year I intend to try to 
bring forward publication day to around the 10th. Ed. 


Dear Editor, *STAR*LETTER* *STAR*LETTER* 
Is it just me? Or do other readers suffer from very poor TV 
pictures from a +2? My machine has been replaced twice by my 
local BOOTS but still the picture is bad. Surely after so many 
years of computer production we should expect at least a 
reasonably clear TV output. 
Yours Si 2 
eeeied jours Sincerely, Dave Morgan. 
Thank you for the interesting articles on BETTER BASIC (FORMAT 
Vol 1" Number 12). But when are we going to have some more from 
Ken Elston? 
Yours Sincerely, S.T.Little. 


The following month saw the start of a regular feature from 
Clyde Bish which has covered many of the things Ken had planned 
for his articles. As Ken was aoving house at the tize he decided 
to drop his plans until early 1989 when he will be back with 
wore on Basic and another part to his Tasword 2 upgrade Ed. 


Letters printed may be edited for length or clarity. The writer 
of each months STAR LETTER wins an EXTRA 3 months subscription. 
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Northern Amateur Radio Societies Association 


NORBRECK 
RADIO RALLY 


NORBRECK CASTLE HOTEL EXHIBITION CENTRE 
QUEENS PROMENADE, NORTH SHORE, BLACKPOOL 
(Formerly held at Belle Vue, Manchester) 


Sunday, January 29th, 1989 at 11 a.m. 


THE NORTH’S LARGEST SHOW FOR ALL 
ENTHUSIASTS OF AMATEUR RADIO, 
ELECTRONICS AND COMPUTING ETC. 


MANY LESSER KNOWN SPECIALISTS AND 
LARGER TRADERS WILL BE EXHIBITING 


COMPETITIONS FOR N.A.R.S.A. ASSOCIATED CLUB STANDS, YOUR 
HOME CONSTRUCTED ITEMS AND AN INTER-CLUB QUIZ 


DON'T MISS IT 
ADMISSION £1.00, OAP’S SOp, UNDER 14s FREE 
FREE RAFFLE TICKET AND EXHIBITION PLAN 


PETER DENTON G6CGF 051-630 5790 
42 Trafalgar Road, Wallasey, Merseyside L44 0EB. 
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By:Clyde Bish. 


By now enthusiastic adventure writers (and basic programmers in 
general) will have saved hundreds of bytes in their programs, and 
are wondering what to do with all that free space. Why not brighten 
things up a little with some graphics? What immediately springs to 
mind is full colour, hires Hobbit-style pictures or umpteen thousand 
different views around the Land of Midnight. All in good time. Let's 
not forget the humble ascii character. 


What can you do with Uncle's character set? Answer - quite a lot 
if you've an inventive mind. (Ex-ZX81 users might care to remember 
the ingenious graphics in Automata's "Can of Worms"). Let me help. 
Enter the following lines. (The (] mark combination keypresses, just 
enter whats between them, 


10 LET h$="{E-MODE CAPS-SHIFT 2]# 

20 LET b$="[E-MODE CAPS-SHIFT 1] [E-MODE CAPS-SHIFT 7][E-MODE 1][¢ 
RAPHIC 8][GRAPHIC 8] s[E-MODE 6](E-MODE CAPS-SHIPT 3][E-MODE 
CAPS-SHIFT 9]@[E-MODE CAPS-SHIFT 7][E-MODE 1][E-MODE CAPS-SHIFT 8]:: 
(B-MODE CAPS-SHIFT 2][E-MODE 7]0" 

30 LET s$=CHR$22+CHRS17+CHR$22+h$+CHR$22+CHRS 1 8+CHRS8+b$+CHRS$22+CH 
RS$194CHRS2+h$ 


If you've been following this series you'll know that the strange 
keying sequences have been incorporating colour and flash control 
codes into the string. (If you haven't (tut-tut!) you'll find the 
table on page 87 of your manual helpful). 


Now RUN, When you get the 0.K. message, try CLS : PRINT s$, and 
you'll have the mystic Sword of Power appear before you, all ‘made 
with ascii characters complete with flashing magic Symbol of Gora - 
probably the best use for the deformed AT sign! 


In a similar way yo ce quite a respectable Robot by 
printing an "o", " and "1" in a vertical line. The 
following line produces a bigger version. 


"O": PRINT "[GRAPHIS CAPS-SHIFT 8)": PRINT "[GRAPHIS CAPS 
PRINT "[GRAPHIS 5]": PRINT "[GRAPHIS CAPS-SHIFT 2]" 


10_ PRIN’ 
~SHIFT 8) 


How about a cache of silver rings? Try RUNning:- 


10 FOR f=1 TO 10: PRINT AT £,11; PAPER 0;"(12 spaces)":NEXT £ 
20 FOR f=1 TO 30: PRINT AT RND *7+42, RND *9+12; PAPER 0; INK 7;"o" 
: NEXT £ 


Line 10 prints a black background, whilst line 20 prints a random 
scattering of rings over it. Now CLS, edit line 20 to read 
20 FOR f=1 TO 30: PRINT AT £,11;INK 2;"[GRAPHIS 1]" 


and RUN 20 and you have a find of "Blood-Gold”. 


Jewels need a slightly different technique. For a hoard of 
diamonds replace line 20 with:- 


20 FOR f =1 TO 80: PLOT RND *80+96, RND *64+96: NEXT £ 
and RUN. (If you want rubies, set INK to 2 and RUN 20). 


Before leaving the ascii codes let's look at the OVER command 
This PRINTs one character on another without blanking it out 
normally happens. It works in a rather strange way. INK on INK gives 
PAPER colour, as does PAPER on PAPER, but INK on PAPER gives INK. 
What this amounts to is that by over printing characters, new shapes 
can be produced. Sort of pseudo-user defined graphics. Sa 
overprinting * on > gives an aeroplane-like shape, c on o gives a 
"bullet", and * on ! gives a rocket flame. Try it out for yourself 
but be warned, there are tens of thousands of combinations. 


Turning now to real udg's, this opens a complete new spectrum (and 
without invalidating the guarantee!). You can quite literally 
produce what you want, where you want it on screen. As the 
individual udg's are quite small they really need to be used in 
groups to get an illustration of any size. This causes a problem. 
You only seem to have 21 available (Graphics A- U). Even without 
the manipulation of the machine's memory we'll look at later, this 
is not so restrictive as it seems. It is quite possible, with 
forethought, to use some udg's for more than one purpose. We'll look 
at this in detail in a later article, but for the present let's 
rethink Uncle's chessmen udg's (page 72 in your manual). These are 
far too small to be of any real use, but if they were twice the size 
it would be a different matter. That causes a problem. There are six 
pieces, each of four udg's. That makes 24, and there are only 21 
available. The solution to the problem is quite simple. Use two as 
the base, and link these with different tops for each piece. This 
way you will only need 6%2+2 = 14 udg's leaving some spares. (So 
purists could have a smaller base for their pawns). 


But you're not actually restricted to just 21 udg's. You can have 
as many as you like (at a cost of 8 bytes each), provided you inform 
the machine of the fact. Amongst those mysterious System Variables, 
the “house-keeping" file of the machine's memory, there is one 
called UDG at addresses 23675 and 23676. The information these hold 
is the address of the first udg byte. If you:- 


PRINT USR "a" (ENTER) 
you'll get the number 65386 on screen (on a 48k Spectrum). If you:- 
PRINT PEEK 23675, PEEK 23676 (ENTER) 
you'll see the numbers 88 and 255. This is the way the machine holds 
numbers larger than 255. If you multiply 255 by 256 and add 88 
you'll get that 65386 again. 


If you POKE the UDG System Variable with other numbers you will 
cause the machine to look elsewhere for the start of the udg's, and 


you can do this as often as you like. I'll prove it to you. Type in 
this little and run it. (The capitals in line 200 a 3 and 
be entered in Graphics mode). aati nara 


10 POR £=60000 10 60007: READ a: POKE f,a: NEXT f: 
Pers £2 DATA 1,3,7,15,3 
20 POKE 23675,96: POKE 23676,234: PRINT "AAAAA’ 


The first section sets up a udg file of triangle shapes at a new 
address, 60000. ‘The second section redirects the UDG systers 
variable to this address, before the udgs are printed as normal. 
You're still limited to a maximum of 21 udg's at a time, but you c 
have as many sets as you like, simply by redirecting UDG’ to t 
start of each set as required. You'could use this idea to illustrate 
each of your intrepid Adventurer's finds bya 5 column by 4 row 
graphic. To use this syster, first design your illustration on 
Paper, sorting out your INK and PAPER 
BRIGHT or FLASH if you need’ then, See vie 


The easiest way to translate your masterpiece into a form the 
computer can use is by using a Character Generator program if you 
have one. If not you'll have to work out and feed in the data 
yourself, and so construct each character. Don't forget to work 
across each of the rows starting with the top left and ending on the 
Botte eight Howenber you have to use all 20 characters each tine, 

you just make them blanks. You don’ 
character. SAVE each set with:- ae bees 


SAVE "title"CODE USR "a",160 


Now you have to make all those saved udg sets - you can have up t 
30 if you start at address 60000 as above - into one long length’ oF 
code. You can do this using the following program:— 


1) REM capitals are udgs 
LET g$=CHR$ 22+CHR$ 10+CHR$ 0+"ABCDE"+CHRS 13+"FGHIS" + + 
KLMNO"+CHR$ 13+"PQRST" mee eres 
15 LET a=60000: LET c=1 
20 INPUT "Title of code “;(c) 
30 IF t$="" THEN GO TO 200 
35 LOAD t$CODE a,160 
7 49 RANDOMIZE a: POKE 23675, PEEK 23670: POKE 23676,PEEK 23671: PRIN 
g! 
50 LET k=0: FOR £22848 TO 22944 STEP 32 
60 FOR n=0 TO 4: LET ksk+i: POKE f+n,7 
70 INPUT "Attribute value?",v 
80 POKE f+n,v: POKE a+160+k,v 
90 NEXT n: NEXT f: LET aza+160 
100 PAUSE 100: CLS : GO TO 20 
200 INPUT "Title for code?",t$ 
210 SAVE t$CODE 60000,c*180 
220 PRINT "VERIFY": VERIFY t$CODE 


'? (ENTER if end)"'ts 


Type it in, then RUN. Answer the prompt with the name of the first 
set, then load it in. After loading, the program will ask for an 
attributes value of each udg. Work this out using the table in 
Fig 1. For example, for black INK on green PAPER you would enter 33. 
Add 64 to make it BRIGHT, and 128 for FLASH. (Remember you can only 


px have one INK and one PAPER colour per 
0 1 2.3 8 5 6 7 character). You'll see each udg 
displayed change to the attribute value 
so you can see what the final result 
will be. Now repeat the process with 
the second udg set, and so on until the 
last set has been dealt with, then 
reply to the prompt with 0 and you'll 
be able to SAVE the whole collection of 
udg and attribute bytes from address 
60000. 


PAPER 


46RR, oR 
684, ase 
SB. SEK2 
B28eey 


Hat, 
A subroutine to make use of this code in your adventures would 
look like this:~ 


100 LET £$="001A Boot": GO SUB 1000: STOP 
1000 LET ceVAL £$( TO 3)*180+59820: RANDOMIZE c: POKE 23675,PEEK 236 
70: POKE 23676,PEEK 23671: PRINT g$,f$(4 TO ): LET cec+160: FOR f=22 
848 TO 22944 STEP 32: FOR n=0 TO 4: POKE fen,PEEK c: LET cec+l: NEXT 
nz NEXT £: RETURN 
9999 LET g$=CHR$ 22+CHRS 10+CHRS$ O+"ABCDE"+CHRS 13+"FGHIJ"*CHRS 13+" 
KLMNO"+CHRS$ 13+"PQRST": REM capitals are uds 


Type this in and RUN 9999, This sets up a string variable g$ as 
the complete illustration with the udgs in the correct places to 
start printing at row 10, column 0. When you get the O.K. message 
you could delete 9999. This information is now in the Variables area 
in memory and you don't need the line taking up valuable space. 


You will need a statement like line 100 in your program wherever 
you want to call an illustration to screen. The variable f$ holds 
the information for the illustration number (in this case 1 - it has 
to be 3 figures) followed by the title - A Boot. 


The subroutine starting at line 1000 uses this information to do 
all the hard work. Line 1000 itself is interesting. Remember you 
have to tell the System Variable UDG where the udg's start in that 
strange two-number, multiples it by 180 and adds 59820, so picture 1 
begins at 60000, picture 2 at 60180, picture 3 at 60360 etc... This 
value resets another System Variable called SEED using RANDOMIZE in 
the two-number form UDG needs, so when you PEEK it, the values 
needed are there. Crafty! ‘The rest of £$ is printed under the 
picture. 


So far the program has only printed the picture on the existing 
screen colours for INK and PAPER. Now to get the colours right. The 
way the subroutine does this is to POKE the attribute values 
following the udg bytes into the correct addresses in the ATTRIBUTES 
file. This starts at 22848 with the information for the character at 
row 10, column 0, and moves across each row, jumping to the next 
when necessary. This is the function of the nested loops £ and n. 


Obviously you can have smaller illustrations (or larger ones, but 
I'll leave you to work that one out). The important point is they 
must all be the same size and print in the same place on screen. 

Next time we'll look at ways of improving these techniques, and of 
economising on larger illustrations. ‘Til then, happy UDG-ing! 
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“THE ROSE" - A PATTERN GENERATING PROGRAM. 


By: ANDY WRIGHT. 


The Rose is a pattern-generating method used in some computer 
graphics demos. The mathematician who devised it (Peter Maurer) made 
it public quite recently, and I have written a Beta Basic program to 
demonstrate it. The version below has been improved in line with 
suggestions from Beta Basic Newsletter readers. Something similar 
will probably be used as part of a SAM demo program. SAM can 
reproduce even complex examples of such patterns in a few seconds - 
the swirling effect as a pattern is drawn is really quite 
impressive! 


The points that the program DRAWs TO (this is a DRAW TO a 
specified pixel, rather than the usual DRAW by a specified amount 
from the current position) all have x and y coordinates between -1.0 
and +1.0, so it is convenient to alter the scale of the graphics 
coordinate system and the location of the origin. Line 10 does this 
by assigning values to special variables that are always present in 
a Beta Basic system (even after CLEAR or RUN). XOS and YOS set the x 
and y offsets of the origin, and XRG and YRG set the x and y rane 
which will fill the whole screen, After line 10, PLOT 0,0 will plot 
near the centre of the screen, and PLOT -1,-1 will be low down on 
the left. 


RNDM(number) is a faster (2.5 times) version of RND that gives 
random whole numbers between 0 and the number specified. Here it is 
used to set two numbers that specify each pattern. MOD(A,B) gives 
the remainder after A is divided by B. It is used at line 40 to 
avoid certain kinds of symmetrical patterns taking longer than they 
need to, and at line 90 to give a remainder in the range 0-359 
degrees. Sines and cosines have to be calculated in lines 90 and 
100. Ordinarily, this would greatly slow down the pattern 
generation, since SIN and COS are very slow, but Beta Basic provides 
SINE and COSE, which are slightly less accurate, but 6 times as 
fast. Once a pattern is complete, the program pau for you to 
admire it. Press any key to generate the next pattern. 


1 REM “THE ROSE" 
5 LET kePI/180 
10 LET xrg=3,xos=xrg/2,yrg=xrg*1 76/256, yos=yrg/2 
20 DO 
30 LET n=RNDM(178)+1,d=RNDM(178)+1 
40 IF MOD(n,2) AND MOD(d,8) THEN 
LET b=180 

ELSE LET b=0 
50 PRINT "Ne"jn'"Da";d 
60 PLOT 0,0 


" 


70° LET a=0 


80 DO 
90 LET a=MOD(a+d, 360), t=k*a,r=SINE(k*MOD(n*a,360)) 
100 DRAW TO r#SINE(t),r*COSE(t) 


110 LOOP UNTIL a=b 
120 PAUSE 0 

130 cLS 

140 LOOP 


If you decide to try to write a 
(slower!) version of this program in 
standard Spectrum Basic, it may be 
useful to know that you'can DRAW to a 
specified x,y point using: 


DRAW x-PEEK 23677,y-PEEK 23678 


Desk-Top Publishing! 


..and other utility software for your Spectrum computer 
= Disciple » Plus D * Opus * Microdrive * +3 = Swift = 


WordMaster - The best Spectrum word processor around! 
Headliner - Design titles and graphics from within WordMaster 


Typeliner - Adds powerful desk-top publishing facilities to WordMaster £16.95 
DTP Pack - WordMaster, Headliner & Typeliner complete £37.80 
Above items: add £1.50 for Disciple/+D disks: £2.50 for +3 versions 

HiSoft C - Ideal for learning C on your Spectrum £25.00 
Devpac ~ Machine Code assembler /monitor development system £15.95 
HiSoft BASIC - Superfast floating point BASIC compiler £24.95 
CP/Me3 ~ The essential buy for your +3 system £29.95 


Plus 3, Disciple, OPUS and other versions available - call for prices. 


This ad was produced with the Spectrum DIP Pack! Send S.A. for details. 


We also offer @ LASER-PRINTING service from WordMaster text files. Call for details. 


“suse wb 
| a [ PCG, 61 School St., Barrow, Cumbria, LAI4 JEW 
‘Rd « Tel: 0229 36957 
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A MACHINE CODE SCREEN COPY ROUTINE 
By: Carol Brooksbank. 


I wrote this program because I wanted to make small bookplates, 

printed on peel-off labels, for a library (see Fig 1) and logos for 

headed notepaper. I needed to use 

© oO |mimmuirwee Or tps, the full width of the, screen to 

i lcoventay get enough detail in the design, 

2 but the smaller of the +3's COPY 

routines covers threequarters of 

the width of a sheet of A4, and 

about one third of the depth. rt 

also refuses to copy the bottom 
two lines of the screen. 


We). rerary 


Fig. 1. SOREN DUP FOR LABELS, 

A small screen dump was needed, 
and this is the little routine that produces it. It was written for 
the +3, but it will work on any Spectrum model, provided it is 
hitched up to a dot matrix printer with Epson compatible bit-image 
graphics. 


The machine code only handles the printing of one horizontal row 
of character squares. The repeat loop which prints all the rows is 
handled from BASIC, co that if you don't want to print all the 
screen you can change the number of times the loop repeats. If you 
want to match peel-off labels, for instance, they are only 14 screen 
rows deep in the size of screen dump I use. 


There is a problem to be overcome before you can print a screen 
dump using bit-image graphics. Each character square consists of 64 
pixels (8 bytes). The bytes held in the Spectrum memory are the 
HORIZONTAL bytes - most significant bit (MSB) 7 on the left, least 
significant bit (LSB) 0 on the right. The printer requires the 
VERTICAL bytes, MSB 7 at the top, LSB 0 at the bottom (see Fig 2). 


We have to convert the horizontal bytes in © 
the memory to the required vertical ones. 3c 
The key is the RL instruction. The diagram 
shows the effect of that instruction on the * 
byte held in a register (see Fig 3). Bit 7 “2 
moves to the carry flag, all the other bits ve 
move one step to the left, and the original aa 
value of carry goes to bit 0. = 

So, if we point HL to the top byte in the ° 


square, and execute RL (HL), the carry flag wes essa oF 

will hold bit 7 of the top byte. Now execute 

RL D, and that same bit will be transferred (o,2n" aves or nymcne sume 
to bit 0 of D. Point HL to the next byte 

down in our square, repeat the operation, and that first bit will 
take one step to the left and be now bit 1 of D. Repeat the whole 
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thing a total of @ times, and D will be holding a byte made up of 
the number 7 bits from all of the horizontal bytes, in the right 
order. Since that is what we wanted, we can print it. As a 
by-product, all the original bits 6 of the horizontal bytes will 
have stepped to the left, and be waiting in the bits 7 positions for 

‘aa ws to repeat the operation to get 
‘stating postti0N . the next vertical byte. 


Unfortunately, at the same time. 
all the bits 0 of our horizontal 


ry e bytes will have been corrupted, 
because the contents of the carry 
7 ese 0 @ te flag will have been copied to then. 
As each successive vertical byte is 
printed, the character square 


becomes more corrupted. That means 
we cannot work directly on the 
screen display. You would only be 
able to make one screen dump, and 
would have to re-load the screen 
display before every printout for 
multiple copies. 


Fig. 3. SFECT OF DE AL DSTRICTION 


So, before each character square is printed, its horizontal bytes 
are copied to a workspace where we can manipulate and corrupt then 
without affecting the screen display. 


And that is really all there is to the machine code. An outer loop 
repeats the character square dump 32 times, to copy a complete 
screen row. The notes in the listing explain in detail what each 
instruction does. The little routine labelled NXDOWN is a_ separate 
routine which finds the top byte of the lefthand square of the next 
row down, and is called from BASIC each tine the program moves on to 
the next row of squares. 


The BASIC controls the bit-image mode being used, and this in 
turn, affects the appearance of the finished screen dump. Line 30, 
which sets up the interface to receive control codes, would have to 
be modified if you are not using the +3 interface (see table 1). 
Consult your interface instruction book to find the correct method. 


Lines 40 and 200 select the mode in use, and the proportion. Line 
200 assumes that the printer supports the useful ESC "*" control, 
which selects one of several available bit-image modes by entering a 
number after "#". If you have ESC the value given to "mode" in 
line 40 selects the bit-image mode. If your printer does not have 
ESC "*", line 200 would have to be changed to: 


LPRINT CHR$ 27;"K"; CHRS 0; CHRS dots; 
("K" may be replaced by "L","¥" or "Z" to select 
other bit-image modes.) 


The value of "dots" governs the number of times each vertical byte 
is printed, and the value of "margin" governs the distance of the 
Printout from the lefthand side of the page. Line 70 sets the margin 
width and selects 22/216 inch line spacing (remember to reset your 
Printer after using this dump routine). Line 90 loads the screen, 
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and line 110 stores the address of the top lefthand byte of the 
screen in the program variable ACRNPOS for the start of the routine. 
Line 120 governs the number of lines copied, so change this line if 
you want to print less than a full screen dump. Line 150 points 
SCRNPOS to the next row down. The subroutine at 200 selects the 
bit-image mode, prints the line, and performs a carriage return. 
Line 9999 saves the BASIC and machine code. 


Changing the mode and dots values gives a whole range of screen 
dumps in varying sizes and proportions. I put together a demo screen 
with a couple of type faces, some geometric shapes including a true 
circle, and some small sprites, and the illustrations give you an 
idea of the effects of the changing proportions on the different 
features. Mode 3, dots 3, comes closest to a perfect copy. There are 
dozens of combinations of values available, giving a wide variety of 
results, but I will leave you to play around and investigate them 
for yourself! 


The source code was written using the Laser Génius Assembler which 
allows long labels and comments which I like. You may need to make 
slight alterations when using different assenlers 


Source Cod 


1 ¥SCREEN ON 
*LIST on 
2 *PRINTER ON 
*LLIST — ON 


10 ORG 60000 
20 LD A,3 ; Output to printer 

CALL #1601 

LD HL, (SCRNPOS) ; Fetch address of top byte of first 


square 
B,32 ; Number of squares in a row 
BC ; Save number of squares to do 
PUSH HL ; Save square we are on 
LD 8,8 ; Number of bytes in square 
40 LD DE, BYTES ; Address of list of bytes we are converting 
to vertical bytes 
LOOPI:LD A, (HL) ; Fetch value of byte in square 
LD (DE),A j Store it in list 
INC H ; Point to next byte down in square 
INC DE ; Point to next address in list 
DJNZ LOOP! ; Jump back if more bytes to list 
50 LD B,8 ; Number of vertical bytes to print 
LOOP4:PUSH BC ; ‘Save number of bytes to do 
LD HL,BYTES ; Address of list of horizontal bytes 
XOR A ; Clear the D register 


LD D,A 
LD B,8 ; Number of bits in a byte 
60 LOOP2:RL (HL) ; Move bit 7 of listed byte to carry, and move 


bit for next vertical byte to bit 7 position 
RL Dj Transfer carry to bit 0 of D register, and move 
all other bits in D to left. 
INC HL j Point to next address in list of bytes to do 
DINZ LOOP2 ; Jump back unless all 8 bits copied to D 
70 LD A, (DOTS) ; Fetch number of times each vertical byte 
is to be printed 
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80 


90 


100 


110 


THE 


LD B,A ; Use this figure as counter 
LOOP3:LD | A,D ; Transfer vertical byte to A register 
RST 16 ; Print it 
DINZ LOOP3 ; Jump back if it is to be printed again 
POP BC ; Fetch number of bytes left to do in this square 
DJNZ LOOPS ; Jump back unless square finished 
POP HL ; Fetch address of screen square we have just done 
POP BC ; Fetch number of screen squares left to do in 
this row 
INC HL ; Point to next screen square 
DJNZ LOOPS ; Jump back unless row completed 
RET ; Return to BASIC 
BYTES:DEFS 8 ; List of bytes in a screen square. These will be 
rotated and so values changed as each vertical 
byte is printed. 


SCRNPOS: 
DEFS 2 ; Address of first byte of screen row we are 
printing. Poked from BASIC as 16384 at start. 
DOTS :DEFS 1 ; Number of times each vertical byte is to be 


printed. Poked from BASIC 
3 Subroutine moves SCRNPOS to the top byte of the next row down 


NXDOWN: 
LD HL, (SCRNPOS) 
RRO 
RR OH 
RR OR 
LD BC,32 
ADD HL,BC 
RL OR 
RL OH 
RL OE 
LD (SCRNPOS) ,HL 
RET 


*PRINTER OFF 


BASIC PROGRAM. 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
150 
160 
170 
180 
190 
200 
210 


CLEAR, $9999 
LOAD “dumpcode"CODE 60000 
FORMAT LPRINT "U' 

INPUT "mod 
INPUT "margin" ;margii 
POKE 60067,dots 
INPUT "number of copies’ 
LOAD d1js$ SCREENS 
LPRINT CHRS 27;"1" 
FOR r= 1 TOn 
POKE 60065,0: POKE 60066,64 
FOR Q=1 10’ 24 

GO suB 200 

RANDOMIZE USR 60068 

NEXT Q 

LPRINT CHRS 12; 
NEXT 5 

STOP 

LPRINT CHRS 27;" 
RANDOMIZE USR 60000 


: INPUT “screen to print";s$ 


CHRS margin;CHRS 2 


CHRS mode;CHR$ 0;CHRS dots; 
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INTERFACE 1 = 30 FORMAT "b";baud rate: OPEN #3; 


220 LPRINT 
230 RETURN 


9999 SAVE "scrdmp" LINE 10: SAVE "dumpcode"CODE 60000,91 


Table 1_~ Other interfac 


Replace line 30 of the basic program to match your interface. 


DISCiPLE / PLUS D = 30 POKE @6,1 


CODE POKER 


10 FOR I=1 TO 91: READ N: POKE I,N: NEXT I 

20 SAVE “dumpcode"CODE 60000,91 

30 DATA 62,3,205,1,22,42,161,234,6,32,197,229,6,8,17,153,234,126 
40 DATA 18,36,19,16,250,6,8,197,33,153,234,175,87,6,8,203,22,203 
50 DATA 18,35,16,249,58,163,234,71,122,215,16,252,193,16,230,225 
60 DATA 193,35,16,210,201,0,0,0,0,0,0,0,0,0,88,1,42,161 ,234,203 


70 DATA 28,203,28,203,28,1,32,0,9,203,20,203,20,203,20,34,161 
80 DATA 234,201,341 


LETTERING trprs 
rey 
se = 
= 

=a SOF Ss 
ss ssa hod 

a 
rE 2, Ts 2. 


ALL EXAMPLES SON HAE ACTUR SIZE 
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Sone aed FeSn 
HORSSaSARS 


JRIXIODWREINDEERCNMFRQRTCCGZ 
PANTOMIMESVRVYDATESHTSOCRHNV 
KTCTFAIRYIEAYTPTQOSVHYEBCEUIG 
STUNTSEHCKEZSUZJAXMLWLIATRPN 
LESNITIHCSWVNYAZXXLVIBNRTCPH 
YKEKACYAWFPCEAMWZOMYNUIDIHOS 
VHCMNDR ENMIHCGMTANGLHHK 
1DHSUCOGNOWBSATDANN FS SEBQOGUSH 
GRETTEBPTINODSSREDAERRTAMROF 
NQLICSESZZYGCMETALOCOHCATNAS 
OIGLMANGLFLRMNRNAPIZRAMPNOSD 
ILNIBUNOAIIRDEFFVAGEPMRTLMNG 
SDAGCEBDIBINEMTEAWRRCOPKVCLX 
ILPUDGGALTYULETIDEEKRCSOUGYR 
VREFWPOVLEAPMCTZWSESUATISGRS 
EROJICLMILNRPSDVEVTGDLUSYOTT 
LZLGQINUGNOLOINNMMIVOEFPXKIBO 
EYOVCDAYHLYONCTOAANQLNFPRPUEPC 
TSRMGHEETICNNSEAWBGRFDIPAPLK 
EZARWGHKSKEYCSPDXMSHRANYQFRI 
CSCMEPQRGRYQWXVTGDAFERGZIBXN 
QZOZTMNUKTAMIJHBOSXXNSLLEBZAG 
ORJOKSITSDHGROTTOTNYAAYAYPLM 
QEGMCTIOQGITTHAFIFUOUMQSZTADO 
CPERAGRRISLEDGEMWOQNBGKWPPPR 
BMKALFNAHUEOTELTSIMNCBIYGOWS 
YANTIDGFOCUEJOSSVYNMOILIICTUE 
PHYSIADVENTYDNACOIVYIXIRKMAJ 


FORMAT's CHRISTMAS PRIZE WORDSQUARE 
CHRISTMAS SHOPPING ADVENT ANGLE Ivy MARZIPAN 
TELEVISION STOCKING DINNER MERRY Tors CHOCOLATE 
DECORATIONS  YULETIDE WINTER BELLS CANDY SNOWMAN 
CHESTNUTS STUFFING FROSTY EVE DATES — TURKEY 
CALENDAR BALLOONS SLEDGE PAIRY GOOSE ~ ROBIN 
PRESENTS SNOWBALL SANTA RIBBON CRIB CAROL 
MISTLETOE CHIMNEY = HOLLY. HAMPER TREE TINSEL 
REINDEER CRACKER © GROTTO CHURCH CAKE LOG 
PANTOMIME BAUBLES RUDOLF LIGHTS CARD PUD 
GREETINGS GLITTER CANDLE PUNCH STAR NUTS 


Last Christmas we ran a competition wordsquare which, judging from 
the number of replies, proved very popular. So here's another 
wordsquare, bigger than last years so it should give you something 
to do when there's only repeats on the telly. 


There are 60 words (all related to the festive season) to find in 
the grid. Words run FORWARD and BACKWARD, UP and DOWN, even 
DIAGONALLY, in fact in all 8 directions. SNOWBALL is marked to give 
you a start so there's just 59 left to find and circle. 


Geoff Bobker of 2X GUARANTEED has very kindly donated 30 copies of 
his book ‘TRADE SECRETS' as prizes. Send your completed entry (photo 
copy accepted, but only 1 entry per member allowed) in an envelope 
marked 'WORDSQUARE', “to our usual address To arrive no later than 
first post on Monday 30th January 1989. To make it fair for our 
overseas members 6 of the books have been set aside for then, 
Overseas entries should arrive by 31st March 1989, 

All correct entries will go into the hat on the closing date and 
the draw will be made. Winners will be notified by post, as usual in 
these things the Editor's word is law. 


And now a little quiz for you. No prizes, just a bit of fun. see 
if you can get all of them right 


1. What was the name of Sir Clive Sinclairs first company? 
a) Sinclair Research b) Sinclair Radionics c) Uncle Clive's Ltd 
2, What was the name of his first computer? 
a) 2X Spectrum b) 2x80 c) MK14_ d) Oric 
3. What was the first product from Sinclair Research? 
a) Hi-Fi equipment b) Pocket calculator c) Black watch 4) 2x80 
4. In what year was the 2X Spectrum launched? 
a) 1980 b) 1981 c) 1982 a) 1983 
5. How much RAM did the original 2x81 have? 
a) 16k b) 4k ©)48k 4) 1k 
6. What is Sinclairs latest computer called? 
a)2x88 b) Superbrain c) 288 d) Qle3 
7. Who invented the DISCIPLE and PLUS D? 
a) Bruce Gordon b) Noel Gordon c) Flash Gordon 
8. Which software company had early links with Sinclair? 
a) Psion b)Python c) Nylon 4d) Crayon 
9. Including the Dec'88 show How many 2X Microfairs have there been? 
a) 6 b) 17 c) 38 a) 28 
rs? 


10. Which is the best magazine available for Spectrum u: 
a) Atari User b) Crash Bang Wallop c) FORMAT d) The Beano 


For answers turn to page 27. 
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THE SAN SPOT 


By: Bob Brenchley. 


SAM is the super, 280 based, computer that MGT will be launching 
next year. As I am working very closely with MGT on the project, 
FORMAT will usually be first with news on SAM. As I am pledged to 
secrecy I can not answer questions (by letter or phone) regarding 
the inner workings of SAM. However, after clearing the subject 
matter of articles with MGT, I will be giving you the full details 
on SAM over the coming months. Please remember that some fine 
details are still subject to change. 


First bit of news this month is that SAM has been given its full 
name at last. It will be know as the SAM COUPE. It will be the first 
of a family of SAM computers which are being designed to grow with 
the user. You will be able to upgrade your existing SAM as each new 
member of the family is launched. This will, once and forever, 
remove that feeling we have all had at some time in the past - Oh if 
only I had waited. 


Two versions of the SAM Coupe will be available from its launch in 
April next year. The base model, which we have talked about before, 
will be a cassette based with 256k of RAM. It will sell (provided 
RAM chips don't soar in price again) for £149.95. A disc based 
version will also be released at more or less the same time this 
will have a single 1/3rd hight drive (3.5") fitted in the front edce 
of the machine. At around £220 this will be fantastic value. 


DISCiPLE & PLUS D users will still be able to use their existing 
disc systems with SAM using a small adaptor supplied by MGT. Discs 
created by a DISCiPLE or PLUS D will work with SAM's enhanced DOS. 
However the reverse will not always be true because SAM will support 
several new file types including sub-directories. Having said that 
INDUG will be looking at ways to make some of these advanced disc 
features available to members if at all possible. 


I've also seen the artists impressions of the case and keyboard 
which have been done by the Nick Holland Design Group. This company 
was recommended by the UK Design Council when they were aproached by 
MGT for guidance on the external design of SAM. I hope to have 
drawings of the computer for you next month, I think you will like 
it (I do). The keyboard has 71 keys (including 10 function keys) and 
is quite PC like in both feel and looks. Production of SAM will, at 
least for the first few months, be done in India. Bruce Gordon ‘has 
already made several visits and high level negotiations with the 
Indian authorities are nearly complete. This will also open the vast 
Indian market to MGT, something no other hone computer manufacturer 
has been able to do. 


Next month I hope to bring you more details of SAM so keep 
reading. Remember, if you want to be the first with news of SAM, 
FORMAT is for you. 
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HACK-Z0NE 


By: Hugh J. McLenaghan. 


This month TI have written a Cat-Sort routine. This is taken from 
an idea by James Willsher in Vol 2 No 2. Although this routine does 
the same thing, it is written in machine-code and has some extra 
features. B 


Here is the program, you enter it using the Hexloader which was 
printed in Vol. 2~ No. 2. 


65000: CDF8FDCD7EFFCDDF7 065BFE02D821017FC 
FECDEFFECDAAFFC99 3EFF22085B32075B1 
CDO2FE3AASFFB720A 3A075B3C3207SB479 
¥7C9110100AF32A95, 3A065BB8C82A085B0 
FFDSCD84FE26183A3 2422085BCD19FF184 
D61CB72815D3BBD19 E7ESD1220B5B3A079 
1C7BFEQB20EB1£01E 5B320A5B2A0B5B24E 
147AFEO420E3C9AF5 220B5B3A0A5B3C329 
18023E01D3BB32007 0A5B473A065B3DB85 
SBEDS3015BFE01288 D82A085BEDSBOBSES 
OADBBB3AD61CD3BB3 VACDD7FP46CDEBFFA 


B82813380218DS2BD 
1BOGOO1A4F7E12717 
231310F718C606092 
23131ACDD7FF46CD0 
EBFPB838082004235 
1310EF18AF2A085BA 
EDSBOBSB18D11101F 


B7202FD11C7BFEOBB 
20071E01147AFEO1C 
C8DSCD84FE20183AC 
D61CB72015D3BBD19 
1C7BPEOB20EB1£01E 
147AFEQ420E3C9AF5 
18023E01D3BB32031 


SBED53045BCD8DFEA 0021 0080DSESCF3FO 
D1C309FECF3FDBBB1 D121D61BD50100026 
3AD61BB7C921D61BC DBBBEDBOD3BBE1245 
84671100D0CDDSFEE 24D11C7BFEOB20E40 
ED5BO15BDSCF3F3A9 1£01147AFE0420DCB 
005B21D61B8467ESB €9001101002100805 
1100D1CDDSFED121D D5ES11D61B010002C 
QODOCDDSFED1CF3EF DBBBEDBOD3BBE1D1A 
EDSBO4SBDSCF3F3A5, DSESCF3EE1D12424F 
035B11D61B8257215, 1C7BFEOB20E21E014 
00D1CDDSFED1CF3E1 147APE0420DAC9474 
21A9FF34C9010001E 3A815CFESB280A785 
DBBBEDBOD3BBC9061 FE61D8FE7BDOCBAF9 
FF21007P04247EB72 C978C9F578CDD7FF3 


65256: 20FA7832065BC93AF 47F1C910101010005 


The first feature is that it compacts the directory, this just 
makes the directory numbers go up in sequence, ie 1,2,3,4,etc. 
instead of maybe 1,4,9,23,etc.. This is useful if you have a lot of 
files and want to know how many files you do have on the disc. 
Another feature is that it can either treat capitals as the same or 
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different from lower case, ie TEST=test or TEST«>test. The default 
is TEST<>test, but if you do want them treated as the same all you 
have to do is POKE 23681,0 or any number except 91. 


Using this program will corrupt a large area of memory, 
32768-53759. The program also uses 23296-23310. To save the 
routine off to disc use SAVE d*"CatSortCd” CODE 65000,523. 


Here is a BASIC program to be used with the Machine-Code. You do 
not need it, but it does help. 


10 REM BASIC program for Cat-Sort Routine. 

20 REM Written By Hugh J. McLenaghan 

30 REM On 2nd Nov 1988. 

40 REM For DISCiPLE ONLY. 

50 REM 

60 CLEAR 64999 

70 LOAD d*"CatSortCd” CODE 

80 CLS 

90 PRINT "Insert Disc, Then Press ENTER.” 

100 IF INKEY$<>CHR$13 THEN GOTO 100 

110 CLS 

120 CAT 1 

130 PRINT '"sort This Disc? (¥/N)" 

140 GOSUB 9e3 

150 IF a$="N" THEN GOTO 80 

160 PRINT ''"Do you wish Upper Case to be treated as Lower Case 
? (y/N)" 

170 GOSUB 9e3 

180 LET case=(91 AND a! 

190 CLS 

200 PRINT AT 10,10; FLASH 1;"PLEASE WAIT” 

210 RANDOMIZE USR 65e3 

220 CLS 

230 PRINT "Do you wish to Sort another Disc? _(¥/N)" 

240 GOSUB 9e3 

250 IF a$="Y" THEN GOTO 80 

260 PRINT USR O 
9000 POKE 23658,8: LET a$=INKEY$: IF a$<>"Y" AND a$<>"N" THEN GOTO 
9e3 
9010 RETURN 


N")+(0 AND a$="¥"): POKE 23681,case 


You now save it as SAVE d*"Cat-Sort" LINE 10. All you have to do 
now if you wish to sort a disc is insert the disc you have saved 
these programs on and type LOAD d*"Cat-Sort" and the program does 
the rest for you. 


I hope you have fun with this utility. If you have any comments 
or suggestions, then do not hesitate in contacting me c/o FORMAT. I 
would value your POKEs, Alterations and Hacks, I will publish the 
best but I need you to send them in first. 


All letters will be answered when I have time to do so as I am now 
at University. 


Thank you for reading and see you next month. 
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ADVENTURE 
CORNER . a 


This month I would like to introduce the world of maps and mapping 
to you. I consider the importance of mapping with in adventures high 
enough to warrant an article all of its own. Hence the reason for 
mentioning it now rather than during the two previous articles for 
beginners. 


There are experienced adventurers out there who never, or seldom, 
make maps of the adventures they play. They do actually finish 
adventures this way but I will bet that they.incure frustration, 
that could easily be avoided, solely as a result of not building a 
map as they play. So what are maps? How do you build them? Are they 
really necessary? 


A map is a pictorial representation of all of the locations that 
you have visited. It can show many things but it will, at the very 
least, give a representative view of all of the positions of the 
locations relative to each other plus the directional paths that 
lead to and from them. A map that shows the latter will give the 
player an instant overview of the area that has been searched. It 
also allows the rapid movement, from one side of the map to the 
other, of the character without wasting time being lost in a myrad 
of locations. Where you reach the point of - " Now is it west to the 
large oak tree or east? ". Lets face it, adventures contain enough 
puzzles to tease and frustrate without you creating a whole new set 
of your own! 


To begin with, let us assume that each location takes the form of 
a simple rectangular box. It does not matter if the location 
represents a lone point in a large field of in the 


middle of an ocean think of the place you are in as 

a box: Why? Well, because that “is exactly how ie 

looks on the majority of the original maps in the 

possession of the adventure author in question. So, 

ot if it takes three moves to cross a large tract of 

empty space then think of those three moves as three 

rectangular boxes. The boxes serve as a vehicle to contain valuable 

information about the location. To illustrate the method of map 

making imagine a room in a house, where the adventure partly takes 

place. The loacation description describes the room as “A cold, 

bare room with no furniture and broken windows. The mice, you 

notice, have played merry hell with the skirting boards. Exits lay 
to the east and west. " This is our first location (see Fig 1). 


In this example I have called the room the " Bare Room ". This is 
to avoid any confusion between any other room which may be present 
in the adventure. Of course, if you re-read the above location 
description you can see that Fig 1 could easily have read " The Cold 
Room ", or whatever takes your fancy. Notice the two sets of dotted 
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lines protruding out of the box. They represent the two possible 
exits out of the room. I would recommend adding them now rather than 
later. Some players add the directional indicators as they are about 
to go in that particular direction. However, this means that it is 
possible to forget that an exit exists. For example, if, from the 

"Bare Room“, you travelled west 

into another room and then west 


aie again and then north, etc, ete you 

bea ie would, possibly become embroiled in 
es the puzzles in that area. The exit 
Ms oon east of the “ Bare Room" could 
easily be forgotten. Therefore, mark 


it down straight away and it will 
SON serve as a visual reminder. Other 


visual reminders that could be 
included with the words " Bare Room 
Fig 2. “are any hazards that you encoured 
there, such as a man-eating dog, or 


any objects that have been found or 
temporarily dropped. All that is needed is, for example, the letter 
“w", for hazard, and then the word DOG. While a dropped object may 
be represented by "DO" and then an abbrieviated name for the object 
dropped. Similarly, an object found in that location could have the 
letters "OF" followed by the name of the object. 


There are occasions, such as in buildings, when 
the player may need to go upstairs to a second 
floor or down to a cellar. In this case the method mp;- cam nar 
of indicating exits may vary, according to the 
player's taste. The indicator may protrude from 
the corner at a diagonal with an arrow at the end 
first. location the player sees on the next floor wast 
may be marked on the map (see Fig 2). an 
alternative may be to place an asterisk, or 
similar, at the end of the arrow. A completely new . 
map could then be made on a different area of the 
piece of paper or ona totally seperate piece of 
paper. The corresponding exit to the original 
floor should be made on the new map, however, to 


make sure that you remember where to go. This “wp 
should have the same symbol as on the original map 
(see Fig 3). 


essential, but do help, are the personalisation of 

different locations and areas. For example, in a ens: 

marshy area the group of locations within the tad 

marsh could have tufts of grass with water symbols 

drawn between them with a felt-tip pen. Other areas could be 
similarly decorated to ease identifacation of an area. Finally some 
locations may be drawn in a characteristic shape. For example, a 
room may be circular or hexagonal in shape. The corresponding shape 
on a map would, again, help to identify a location. 


If you have any ideas or views on maps, or any other facet of 
adventuring then please write to me care of Format. So until next 
month - Happy Adventuring! 
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ETHORK BATTLE 


By: Nev Young. 


This is the game of battleships that I knocked up one afternoon to 
amuse my son. It is played on two Spectrums connected via a network. 
All the network commands I have used are the Interface 1 format as I 
have one DISCiPLE and one Interface 1. 


To play, the user without the program on disc should enter 
LOAD *n";1 as a direct command. The other should load battleships 
from the disc. If saved with the command LINE 1 it should auto run. 
The master Spectrum then copies the program over the net and the 
game begins. Each player enters their fleet and then their first 
salvo and when both are complete the shots are transferred over the 
net. Neither Spectrum has any knowledge of the whereabouts of the 
other players ships and so cheating is avoided. (My son and I play 
in different rooms). The tally of hits and firepower is maintained 
by the computer. As it is only a simple program, however, no check 
is made that the placing of your fleet is legal. Anyway the rules 
probably change from place to place so I will leave you to police 
your own set of rules. 


None the less it may be of interest to anybody that has the 
capability of running a network. 


10 DEF FN t(n)=1+1*(n=66)+2*(n=68)+3*(n=67)+4*(n=83) 
20 CLS : PRINT "Waiting to send” 

30 SAVE * "n"j1 LINE 50 

40 LET mas=1: GOTO 60 

50 LET mas=0 

60 REM set up my sea 

80 CLS # 

90 PAPER 1: BORDER 1: INK 9: CLS 

100 PRINT " 102030405060708090" 

110 FOR n=1 70 9: PRINT 'n': NEXT n 

120 FOR n= 8 TO 152 STEP 16: PLOT n,23: DRAW 0,152: NEXT n 
130 FOR n= 167 10 23 STEP -16: PLOT 0,n: DRAW 152,0: NEXT n 
140 DIM 0(9,9) 

150 DATA "miss", "bat", "de: 
READ d$(n): NEXT n 

160 FOR n= 1 TO 18: PRINT OVER 1;AT n,1; PAPER 5;" 
jt NEXT n 

170 DATA "Enter Battleship ", 
cruser ","C",3,"Enter Submarine 
180 FOR z=1 TO 4: READ p$,q$,1 
190 FOR n=1 TO 1 

200 INPUT (p$);ship 

210 LET q=ship: GOSUB 290: IF NOT q THEN GOTO 200 
220 IF q THEN IF o(x,y)<>0 THEN GOTO 200 

230 LET 0(x,y)=CODE g$ 


‘cru","sub": DIM d$(5,4): FOR n=1 TO 5: 


“Enter 


+5, "Enter Destroyer ", 
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790 FOR n= 1 70 5 


240 LET cosship: GOSUB 340: PRINT AT r,c; OVER 1;aS; 800 LET g=t(n): GosuB 290 
810 LET co=q: GOSUB 340 


250 NEXT n a 
260 NEXT = 0 PRINT AT r-1,c-1; OVER 1; PAPER 2+NOT NOT e(n);CHRS e(n 
270 GoTo 400 ays" "AND NOT a(n)7 e(n);CHRS e(n) AND e( 
BEE sss gd dae Senki tle extn Ae zi a¥iescr etatny, 
300 LET xeINT (q/10): LET y=q-10*x 841 DIM m(1): LET m(1) 
310 IF x¢1 OR x99 THEN LET q=0 842 IF mas THEN SAVE *"n";1 DATA m(): LOAD 1 Dan 
320 IF yc1 OR y>9 THEN LET q=0 843 IF NOT mas THEN LOAD *"n";1 DATA (): SAVE S'n"3] DATA m() 
330 RETURN 850 IF NOT 1(1) THEN GOTO 1000 
349 REM get row & col from co 860 IF shots THEN Go70 440 
= co 10;"You have lost"'", ”: 
deo tar eeagriose igo Raieriar press any key to continue": PAUS 
1000 IF shots THEN PRINT AT 20,0;"You ha 8 
360 continue": PAUSE 0: GOTO 2000 chad anh series me Nes 
380 {Q10 BRINT AT 20 ,0;°¥ou have scored a draw"'"press any key to contin 
410 salvo";AT 10,20;"Eneny salvo"; 2000 IF mas THEN RUN 
420 LET de=4: LET cr=3: LET su=2 9999 CLS #: LOAD *"n' 
430 DATA er Ist shot ","Enter 2nd shot ","Enter 3rd shot ","Ent 
er 4th shot ","Enter Sth shot " ee 
{40 DIN £18) 2 RESTORE 490: FOR ne 1 70 shots ANSWERS TO TOW GUIS ON PAGE 19. 
460 INPUT iq: GOSUB 290: IF NOT q THEN GOTO 460 
470 PRINT Rapcerren = 1) by, 2) cy 3) a, 4) c. 5) a. 6) c. 7) a, 8) a. 9) da. 10) ae 
2g: 2 AT x-1,c-1; OVER 1; PAPER 2; PLASH 1 
AS kLET! congs: GOGUB 3403: PRIME AT 2-156: ane you aeeniree with me on any answers - HARD LUCK - I'm the 
3 a or. @ way, modesty forbids me to give 'c' as th 
490 LET tin)=g answer to question 10. ae ee 


500 NEXT n 
510 FOR nen TO § 
520 PRINT AT 21,0 


get his salvo 
530 IF mas THEN SAVE *"n";1 DATA t(): LOAD *"n"71 DATA r() 
540 IF NOT mas THEN LOAD *"'n";1 DATA r()z SAVE *"n";1 DATA t() 
550 PRINT AT 21,03" ",, 

560 REM mark his shots on my sea 

570 FOR n=1 70.5 

580 PRINT AT 12+n,20;" "", 

590 IF NOT r(n) THEN GOTO 720 

600 LET q=r(n): GOSUB 290 

610 LET co=q: GOSUB 340 

620 PRINT PAPER 4;AT r,c; OVER 1;" "; 

630 PRINT AT 12+n,20;q, 

640 LET r(n)=0(x,y) 

650 PRINT AT 12+n,25;aS(FN t(x(n))) 

660 IF NOT r(n) THEN GOTO 720 

670 REM BEEN HIT !11 

680 IF x(n)=66 THEN LET basba-1: IF ba=0 THEN LET shots=shots-2 
690 IF r(n)m68 THEN LET de=de-1: IF de=0 THEN LET shots=shots-1 
700 IF r(n)=67 THEN LET cr=cr-1: IF cr=0 THEN LET shots=shots-1 
710 IF r(n)#83 THEN LET sussu-1: IF su=0 THEN LET shots=shots-1 
720 NEXT n 

730 REM tel him wot he's hit 

740 PRINT AT 21,0;"Waiting to send” 

750 IF mas THEN SAVE * "n";1 DATA r(): LOAD * "n' 
760 IF NOT mas THEN LOAD *"n";1 DATA e(): SAVE *"n"; 
770 PRINT AT 21,0;" "y, 

780 REM show wot i've hit 


NEXT n 
REM send my salvo 


RINT AT 2+n,20 
Waiting to send’ 


ADDRESS AND DISC MANAGER 


For PLUS D and DISCIPLE (version 3 onvards) 


THREE programs, on one 3}" disc, handle all your Address and Disc organisation 
at a truly realistic costing. 


007 MENU. With the enormous number of K per disc, this pro} 

3 gran is essential to 
keep a track of which disc your program(s) is on. Simply insert your disc(s) 
then press a key and a Full CAT is held in a record (Upto 2200 Records). Can 
vara for any program and INSTANTLY tell you which disc its on (and even LOAD 
007 SUPERFILE. Holds upto 500 nane/address records and find: 

INSTANTLY. Super Fast SEARCH, ALPHA SORTs, etc. Print LABELS “by 
Sera es Tait 's, etc. Prints as FILES or LABELS by 


007 LISTFILE. Holds 1,000 single line records. Fest SEARCH, SORT, ALPHA SORT, 
RENUMBER. Can print ali or selected records. atl , 


ALL programs can Print Out to ANY type of printer. 
ALL three programs on one 33" disc.... 2Q : 95 


2X-GUARANTEED (G.A.Bobker) Dept: INDUG. 29 Chadderton Drive, Unsworth, 
Lanes, BLO GiL. Tel: 061-766 5712 (Do NOT phone if STAR TREK is on'TV) 7" 


DATA e() 
1 DATA r() 
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eMIEDI% 


MIDI FOR BEGINNERS PART 4 - BY RAY ELDER. 
A useful utility for MIDI users. 


This program was born out of the need to change instrument sounds 
quickly so that I could play several combinations of patches on 
different instruments without having to stop and fiddle with lots 
of little buttons. It is intended for use by those of you who have 
two or more MIDI instruments perhaps linked together with a 
sequencer or computer. 


By introducing a Spectrum with a MIDI interface into the system 
using a MIDI combine box, a box that will allow two sets of signals 
to be combined into one out socket and then passed onto the setup, 
we can overcome an awkward problem for those who like to change 
their sound combinations quickly, perhaps in the middle of a song 
as you are playing. The problem is that if two or more instruments 
are linked directly, then when you change the sound on the master 
keyboard the patches on the other keyboards are changed to the same 
numbered patch. 


For example, if I have the master keyboard set to play an organ 
patch and the sound module set to play a string patch this is fine 
until I decide to change the master voice to perhaps a brass sound 
= the sound module also changes to whatever patch number the master 
is changed to, and this is most likely to be completely the wrong 
sound for that section, Manually it means pressing a key on the 
master instrument and then changing the other modules etc. This can 
often take several minutes and completely ruin the chorus of ‘Tie a 
Yellow Ribbon'! 


As I mentioned you will need an combiner box but these are 
available reasonably cheaply from a variety of suppliers. 


The program is set up to work on all the main MIDI interfaces 
that are available and provides three operational functions or 
modes. It is a fully menu driven program leading you into each 
mode, and from each of these modes you have the option to return to 
the main menu. The operating modes are as follows:- 


1, SINGLE PATCH, this is really included because it was easy to 
jd! Basically you enter the number of the patch you want to send 
nd press the ENTER key. The patch change is sent instantly and the 
information is then lost. It is not stored in memory. This is 
probably a more awkward way of changing a patch than by using the 
keyboard selector.... 


2. PRESET PATCHES, up to ten individual patch changes are stored in 
memory and then are sent in a block when a key is pressed. This is 
useful for sending multiple patch changes on several MIDI channels. 
When the program first starts all the ten patches are set to 0 and 
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you must set them up as you require. 


3. SEQUENCE PATCHES, again up to ten patches are sent, but this 
mode they are sent one at a time each time a key is pressed. Once 
the end of a sequence is reached then the program cycles back to 
the start and begins sending the sequence all over again. You need 
not enter all ten patch changes; for instance, setting two patches, 
say 10 & 32, will change from one to the other and back again on 
subsequent presses of a key 


There are two keys which must not be pressed when sending 
patches, P & R, these have special functions. 'P’ key allows you to 
Feset all your patch sequence data and 'R' will return you to the 
main menu. 


There are two entry modes in the program, a single key press from 
the menus and by entering numerical data followed by pressing the 
ENTER key. Whenever you are at a point where the ENTER key needs to 
be pressed you can type C and press ENTER and you will be offered 
the option of altering the channel output number. | 


20 CLS : PRINT AT 1,10 
s)";AT 6,3;"2. EMR system";AT 8,3;"3. 
M, EeMn" 

30 PRINT AT 14,6 

40 LET g$=INKEY$: IF g$<"1" OR g$>" 

50 LET stat=63+(128 AND g$>"1")-(32 AND g$>"2"): LET trans=191+(6 
4 AND g$>"2") 

60 GOSUB 9000: GoTo 500 

100 INPUT (m$); LINE ps 
110 IF (p$="'c" OR p$s"C") AND NOT flag THEN GOTO 200 
ual? TF (Ps="5" OR PS="R") AND NOT ret THEW LET ret: 

N 


"PATCH SEND.";AT 4,3;"1. MICON (XRI system 
3;"4.UPSTREA 


120 32 THEN GOTO 100 
125 "THEN LET end=1: LET p=1: RETURN 
130 IF_p$(i)<"0" OR p$(i)>"9" THEN LET p$="xx" 


140 NEXT i: IF p$="Xx" THEN GOTO 100 

150 IF VAL p$<0 OR VAL p$>max THEN GOTO 100 

160 LET p=VAL p$: RETURN 

200 CLS |: PRINT AT 4,8;"Change channel number.";AT 6,9;"Present ch 
annel = ";chan 

210 LET flag=1: LET m$="Enter channel number 1 - 16 
220 GOSUB inp: IF p<1 THEN GOTO 220 

230 LET chansp: LET ctrl«191+chan 

240 RETURN 

500 CLS : PRINT AT 1,8;"MIDI PATCH SEND";AT 6,6;"1. Single input"; 
AT 8,6;"2. Preset Patches";AT 10,6;"3. Sequence of patches” 

510 PRINT AT 16,6;"Press a key 1,2 or 3" 

520 LET g$=INKEY$: IF g$<"1" OR g$>"3" THEN GOTO 520 

530 GOSUB 1000*VAL g$ 

540 GOTO 500 

1000 CLS : PRINT AT 6,10;"Patch change ";AT 8,10;"Last patch=";pat; 
AT 10,10;"Channel No.=";chan;AT 16,0;"Enter C to change channel nun 
beror R to return to the menu. 

1010 LET ret=0: LET flag=0: LET ms: 
ET MAX=99 

1015 IF ret THEN RETURN 

1020 GOSUB inp: IF flag THEN LET flag=0: GOTO 1000 


": LET max=16 


"ENTER PATCH NUMBER 1 TO 99 ": L 
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1025 IF ret THEN RETURN 
1030 LET pat=p 

1035 OUT trans,ctrl: OUT trans,p 
1040 GoTo 1000 

2000 CLS : PRINT AT 0,8; 
“ychanjAT 5,0; "KEY No. 
2010 FOR i=i 10 10: PRINT AT 6,1%3-1 
2020 PRINT AT 12,0;"Press Key";AT 14, 
45;"P to redefine patch preset*;aT 18,5 
2025 LET flag=0 we 
2030 LET g$=INKEY$: IF g$<>"p" AND g$<>"P" AND g$<>"zr" AND g$<>"R' 

AND (g$<"0" OR g$>"9") THEN GOTO 2030 

2040 IF g$="P" OR g$="p" THEN GOTO 2500 

2050 IF g$s"R" OR g$="c" THEN RETURN 

2060 OUT trans,ctri: OUT trans,p(VAL g$+1) 

2070 GoTo 2030 

2500 LET m$="Enter preset number 0 to 9": LET max=9 

2510 GOSUB inp: IF flag THEN GOTO 2000 

2520 LET xep+1: LET m$="Enter value of preset “*STR$ p+" (1 to 99) 
"; LET max=99 

2530 GOSUB inp: IF p<1 THEN GOTO 2530 

2535 IF flag THEN GOTO 2000 

2540 LET p(x)=p: PRINT AT 8,x*3-1;p 

2550 GOTO 2030 

3000 CLS : LET x=1: LET end=0: DIM q(10): LET flag=0 

3010 LET max=99: LET m$="Enter patch no."+STRS x+" (E to End) " 
3020 GOSUB ini THEN LET end=0: GOTO 3020 

3025 IF fl CLS : FOR i=1 TO x-1: PRINT AT i*2,8; 
"PATCH 7 

3030 IF NOT end THEN PRINT AT x#2,8;"PATCH "3x;"="5 
ET x=xe1: IF x¢11 THEN GOTO 3010 

3035 LET x. 

3040 CLS : ATCH SEQUENCES": FOR i=1 TO x: PRINT AT 
4,483-1; NEXT i 

3050 PRINT AT 8,0;"Press";AT 10,6;"Any key for next patch’ 
“R to return to menu";AT 14,6;"P to set up a new sequence 
3060 FOR i=1 TO x 

3065 PRINT AT 7;i*. 
PRINT AT 7,y*3: 
3067 IF INKEYS$<>"" THEN GOTO 3067 
3070 LET g$=INKEY$: IF g$="" THEN GOTO 3070 
3080 IF g$="R" OR g$="r“ THEN RETURN 


PATCH CHANGE PRESETS";AT 2,11; "CHANNEL No. 
7AT 9,0;"PATCH No." 

VAT 8,i%3-1;p(4): NEXT i 
to 9 to send patch";AT 16 
to return to the menu” 


LET q(x)=p: L 


FLASH 0: LET y=i-1+(x AND ist): 


3090 IF g$="P" OR g$="p" THEN GOTO 3000 
3100 OUT trans,ctrl: OUT trans,q(i) 
3120 NEXT 4 


3130 GOTO 3060 
9000 DIM p(10): LET chai 
9010 OUT stat,3: OUT stat,& 
ns,176: OUT trans, 127 

9020 LET ret=1: LET flag=0: LET inp=100: RETURN 


1: LET ctrl=192: LET pnt=1: LET pate? 
OUT trans,176: OUT trans,124: OUT tra 


Well that's all for this month, for the next two months I will be 
looking at practical ways of using MIDI sequencers and editor 
programs and presenting some of the ideas and tips that have been 
sent to me. If you have any suggestions or ideas or problems or 
comments or in fact anything related to MIDI music please drop me a 
line at 1 Periton Court, Parkhouse Rd. Minehead, Somerset. TA24 
BAE. Please write to me I look forward to hearing from you. 
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AUDI NG COMMANOS 
TO BASIC 


This month I will attempt to show how new functions can be added 
to the spectrum. Although the first part of this article is intended 
for DISCiPLE or PLUS D owners the last section will interest most 
Spectrum owners. 


By: Nev Young. 


Perhaps I should first say what the difference is between a 
COMMAND and a FUNCTION as the terms are often mixed up. A COMMAND is 
the word that starts a BASIC statement and the whole statement is 
often named after it eg PRINT, SAVE. A function is quite another 
thing. Functions may or may not take parameters but they will always 
return something. Functions can be nested (ie one inside the other) 
and can get very complex. The main feature of a function is that it 
can always be resolved into either a string or a number. 
eg VAL (STR$ ((SIN x)*2+(COS x)*2))=1 where VAL, STRS, SIN and COS 
are functions. The whole thing being an expression, and 1 is the 
value of the expression. 


As well as the problems we have when adding a new command we have 
a few new problems to contend with if we want to add new functions. 
These are caused by the DOS code that has tidied thing up for us. 
The calculator stack has been cleared so any partial results of an 
expression are lost and the workspace is cleared. (Thank you Bruce). 
This can be very nasty as some functions have parts copied into the 
workspace and are evaluated there, VAL "2+3" for example has the 
"2+3" copied to workspace and’ then it is syntaxed and then 
evaluated. This means we are very limited as to what we can do with 
our new functions. The example I will give is PEEK @ (It is the 
opposite of POKE @). 


By way of an example of the problems mentioned above if PEEK @ 1 
gives 208 then what does 7+PEEK @ 1 give : 1 of course ?? This is 
because the 7 has been cleared from the calculator stack but the + 
has not been removed from the opcode list. (PEEK @ 1)+7 will work 
OK. You will find quite a number of places where new functions will 
not work or cause strange things to happen. For safety always use 
then as a single statement eg LET x = PEEK @ 1: PRINT x;TAB 12; 
Rather than PRINT PEEK @ 1;TAB 12;. The most annoying thing is when 
you can enter a line of BASIC but get error 12 (Nonsense in BASIC) 
when you run it. 


This example is written in three parts. The first (lines 330-460) 
is the auto run code that installs the new function. The second 
(lines 540-1060) test the syntax of the function and resets the 
machine stack and error to just before the error happened. The third 
(lines 1070-1270) does the work. The last few lines return into the 
expression evaluation routine. 


Type the following routine into your assembler and assemble it to 
a convenient address, I used 65000. 
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ADD A FUNCTION 70 BASIC 


PEEK én 


ORG 65000 


0080; MAIN ROM ADDRESSES 
0100 CHADD EQU 23645 


0110 X_PTR BQU 23647 
0120 

0130 j DISCiPLE ADDRESSES 
0140 5 


0150 CMR  EBQU 16 
0160 RTHL QU 79 
0170 RTBC EQU 70 
0180 GTNC QU 40 
0190 cFsO EQU 48 
0200 RS16 EQU 44 


DISCIPLE only ADDRESSES 


0240 ONERR EQU 678 
0250 RESP BQU 187 
0260 OFFSET EQU 664 
0265 CADR EQU 1735 
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PLUS D only ADDRESSES 


0300 ONERR EQU 8206 
0310 RESP EQU 231 

0320 OFFSET EQU 8192 
0325 CADR EQU 8463 


0330 ; 

0340 ; Begin by setting ONERR 
0345 j & altering RST CMR 
0350 

0360 ; page in the DISCiPLE 
0370 RST 8 

0380, DEFB 71 

0390 ; load ONERR 

0400 LD HL, START 
0410 LD (ONERR), HL 
0420 ; alter RST to CALL 
0430 LD HL, CADR 
0440 LD (HL), 205 
0450 ; page out the DISCIPLE 
0460 OUT (RESP) ,A 
0470 RET 

0480; 

0490 j Jump to here if DISCIPLE 
0500 ; syntax fails 

0510 ; 

0520 ; reset CHADD to just 
0530 ; before syntax failed 
0540 


0550 START LD HL, (X-PTR) 


0560 
0570 
0580 
0590 
0600 
0610 
0620 
0630 
0640 
0650 
0660 
0670 
0680 
0690 
0700 
0710 
0720 
0730 
0740 
0750 
0760 
0770 
0780 
0790 
0800 
0810 
0820 
0830 
0840 
0850 
0860 
0870 
0880 
0890 
0900 
0910 
0920 
0930 
0940 
0950 
0960 
0970 
0980 
0990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 


3 
3 


DEC HL 
LD (CHADD) , HL 


see if last token="PEEX' 
CALL RS18 
cp 190 3 PEEK 
pre-load error address 
LD BC, 88 
JP NZ,RTBC 


test if a ‘et 


RST GTNC 
ce te’ 

pre-load error address 
LD BC, 88 
SP NZ,RTBC 


OK it was a PEEK @ 
clear machine stack by 
searching for PEEK op code 
see table #1 for ops 


LD DE,4331 ; = PEEK 
POP HL 

XOR A 

SBC HL,DE 

SR NZ,LI 


We have removed the last 
function op code from the 
function stack. 


Now clear the error 
LD A,255 
LD (1¥+0),A 


We now need to put a last 
value on the calc stack 


move on to the next char 
rst gtnc 


read next number onto 
calculator stack 

RST CMR 

DEFW 7298; (1C82H) 


test for syntax 
RST CFSO 
Jp 2,PIN 


get last value in BC 
RST CMR 
DEFW 7833; (1E99H) 


fiddle the base value 
LD HL, OFFSET 


1140 ADD HL,BC 1260 ; middle of SCANNING routine 


1150 7 1270 
1160 j do the peek 1280 j load A with (chadd) 
1170 LD A, (HL) 1290 FIN CALL RS18 

1180 1300 ; 

1190; put it on the calc stack 1310 ; load B with final calc op 
1200 RST CMR 1320 LD B,0 

1210 DEFW 11560 1330; 

1220 1340 j and return 

1230; We now have the value we 1350 LD HL, 10036 
1240 j require on the calc stack 1360 oP ORTHL 

1250 j so jump back into the 1370 5 


Now a few words (pages) on how the expression evaluation is done. 
It always starts with a call to SCANNING at 24FBH and what is more 
it can call itself (A very clever piece of recursive programming). 
Two stacks are involved in the process, one - the op code stack - is 
held on the machine stack and holds the operation codes 
(+ ~ VAL COS etc). The other is the calculator stack that holds a 
pile (Is that the correct term for items on a stack?) of values 
representing numbers or string parameters. The top most of which is 
the LAST value. 


When SCANNING is first entered the opcode stack and the cale stack 
are both empty. An opcode of 00 is pushed onto the op code stack to 
mark the end of the stack. The BASIC line is then scanned. Each 
operation that is found is added to the op code stack. Eventually an 
operand will be found, this is either a number, a string or a 
variable holding a number or a string. When this happens the operand 
is placed onto the calculator stack. 


cove stax cue STA What happens next depends on what 
follows the operand. If it is the end of 
i. oon: Ry —sthe statement then’ the expression is 
F; evaluated by applying the operations from 
; the op code stack one after the other to 
the last value on the calc stack.This is 
3 done by repeatedly calling the floating 
2 point calculator. When the op code is 00 
3 then the last value on the calc stack is 
the required one. However if the end of 
4 the statement is not reached and we find 
3 instead another operator a decision has 
4 to be made. Either add it to the op code 
3 list, or recurse and evaluate the next 
part of the expression first. 
R 


find end 


i 
gS BARS FR PRR FG BSE 


In a simple example what is 2+3*4 24 or 


ap 1" 14 2 The arithmetic priority rules state 
8 the answer must be 14. If we step through 
finish woty 4 that example to show how it is done for 


the two expressions 2+3*4 
4342 (Fig 2). 


(Fig 1) and 
DORE 1 - 2634 


Easy isn't it! But, I hear you cry, where do these magic op codes 


come from and what do they mean? The op code is built of two parts 
the first byte is the priority, High priority things get done first. 
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30 of your spectrum manual 


Se chapte: 
“the ‘BASIC’, there. is a. table of 


operations and priorities). The lower 6 


ome stax Cue STA 
enter vty epty 


2 epty 

bits of the second rae a8. set its vase. as < 

ntify the operation roug! e 
aie deka "by the Floating point calc to fin e 
find the address of the routine that «a43 = ; 
does the work for that operation. They fine : 
are generated in two ways by looking up = 3 
in a table for binary operators (+ - oo 


aC Ge >= © OR AND) and by £44814NG oy 1055 than 

about ( CODE [keyword] - OAFH + ODcH) DATS 

with the value of the keyword (VALS 

through NOT). The last two bits of the fin2 

lower byte show the type (string or |. 

number) of the last value required (bit 

6 ) and the type of last value returned és 

(bit 7) eg VAL needs a string and cat 

returns a number. If the bit is reset it |, 

signifies a string. As a final note 

there are 3\ functions, that, are not cameka ie 
. These 

Sendass, "Kook’® ana POINT. ‘These are all perforned by their ovn 

special subroutines that are called from SCANNING. 


8 
8 
3 
8 


§ 82 898 8g 8g 


"ve got to say for the moment on expanding basic, 
it ttase ae cacyons marche early days of Interface 1 crates saad 
of articles on new routines to extend ae Most ene pe 
Convertible to the BISCiPLE, & PLus|D and when you've done the 
Shiy. tba sight ts atedit the original author in vour article and to 
mention the magazine you got it from. I peta oe ‘speal 
everyone when I say we look forward to seeing the r . 


Bradway Software 


WordFinder 


i ge a i Sra i 
ee arinntrn ot rest te grr Sea ar 
Seb reten cee ns eaee ee 
Siu bacmeiecetsar eae 


*Hillsett”, Upper Padley, Grindleford, Sheffield, S30 1JA. phone (0433) 30799. 
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FOX GT ene 


MGT's PIXIT ~ FIXES THE SPECTRUM +2a. 


By: John we 


The trouble with the 42a is that the old ROM-CS line on output 
port pin 24 (lower) is no longer there: there are now two ROM switch 
dines in previously unused locations, (pins 4 upper and 14 lower). 
Equally thoughtfully, Alan Sugar's mates have omitted the 9 volt 
output (pin 4 lower). The DISCiPLE and PLUS D won't work. MGT gallop 
in to the rescue with their "Fixit", 


This gizmo is a well-made little connector which joins pins 4 and 
14 fo 24 through two diodes (this prevents any cock-up pushing 
gurrent back into the chips), and the 12 volt line on pin 21 (upper) 


to pin 24. This compromise is not perfect, but enables many things 
to work. 


The +b/Disciple both work splendidly, except that the DOs fix 
jetting you work with the +2 in 128k full screen will not fix the 
2a: beware. Interface 1 runs microdrives a treat. whatever I tried 
with the +3 resulted in a reset: MGT are working on this. The 
Discovery was more of a problem. For those who don't know, 2 
Discovery disc system contains a power supply which also powers the 
Spectrum back through the edge connector. This won't work this way 
round with the "Fixit", but if you plug in the power pack with its 
great big plug and switch on everything at once to prevent a crash, 
jt all works. Beware, though, if (as I did), you subsequently leave 
the power unit switched off, but the plug still in: 12 voits will 
find its way round the power pack and back through the 9 volt line, 
eventually killing your Spectrum 2a dead. Embarassing, as I had 
borrowed it from the main Dixons in Birmingham city centre. They 
were very nice, about it too (in fact, in spite of all the adverse 
press comment, I've always found that ‘branch very helpful). And 
that’s why I could test nothing else, although I suspect most modems 
would now be 0.K. 


If you are going to run a device like the Discovery, with its own 
Power supply back into the Spectrum, let MGT know, and they will 
Supply one with the 12 volt track cut. It then won't be of general 
use, but can't ruin your Spectrum. At the price (£7.95), you could 
afford the luxury of a dedicated one. It's neat, cheap, and does far 
more than MGT at first intended. 


es 


* * COMING SOON x x 
The YOUR REVIEW Section 
see next month for details 
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